home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 10 / 9 / DISK1095.ZIP / USER.DOC < prev    next >
Text File  |  1988-03-03  |  42KB  |  1,093 lines

  1. .cw 10  
  2.              SAMPLE USER & PROGRAMMER DOCUMENTATION
  3.  
  4.  
  5. .FO                                i
  6.                     T A B L E   O F   C O N T E N T S
  7.  
  8.   1. THE CUSTOMER INFORMATION SYSTEM....................................1-1
  9.  
  10.   2. SYSTEM MENU........................................................2-1
  11.      2.1. CUSTOMER INFORMATION SYSTEM...................................2-1
  12.           2.1.1. THE CUSTOMER FILE MAINTENANCE..........................2-5
  13.           2.1.2« PRIN╘ CUSTOME╥ REPORT..................................2-27
  14.           2.1.3. PRINTING MAILING LABELS................................2-31
  15.           2.1.4. GENERATE FORM LETTER...................................2-34
  16.           2.1.5. CUSTOMER FILE CLEANUP..................................2-37
  17.           2.1.6. MOVE PURCHASE AMOUNTS BACK ONE YEAR....................2-39
  18.           2.1.7. RETURNING TO SYSMENU...................................2-41
  19.  
  20.  
  21.  
  22. Appendices
  23.  
  24.   A. INDEX...............................................................A-1
  25. .PAè.FO                                       ii
  26.                                L I S T   O F   S C R E E N S
  27.  
  28.  
  29.  2-1: A>..................................................................2-1
  30.  2-2: dBASE ENTRY.........................................................2-2
  31.  2-3: dBASE ENTRY 2.......................................................2-3
  32.  2-4: SMITH'S BIKEWORKS INFORMATION SYSTEM................................2-4
  33.  2-5: SMITH'S BIKEWORKS INFORMATION SYSTEM................................2-5
  34.  2-6: SMITH'S BIKEWORKS INFORMATION SYSTEM................................2-6
  35.  2-7: SMITH'S BIKEWORKS INFORMATION SYSTEM................................2-7
  36.    .
  37.    .
  38.  2-17: >> Customer Information System File Maintenance <<.................................................2-18
  39.    .
  40.    .
  41.  2-43: * END RUN dbase III PLUS...........................................................................2-44
  42. .PAè.FO                                       iii
  43.                           L I S T   O F   Q U E S T I O N S
  44.  
  45.  2-1: Why do you want to type dbase at A>?................................2-2
  46.  2-2: Why must a second disk be inserted?.................................2-2
  47.  2-3: Why must you type DO SYSMENU?.......................................2-3
  48.  2-4: What  choice  do  you select to enter  the  customer  information...2-4
  49.  2-5: What does the customer file maintenance do?.........................2-5
  50.  2-6: What does the Find command do?......................................2-6
  51.  2-7: Why must you type Ctrl-Y?...........................................2-7
  52.  2-8: How does the system search for the customer requested?..............2-8
  53.  2-9: What choice will allow you to add a record?.........................2-9
  54.  2-10: Why do you enter ALBERTI?.........................................2-10
  55.  2-11: How many possible indexes are there for the CUSTOMER file?........2-11
  56.  2-12: How many dbf file does the customer information system maintain?..2-12
  57.  2-13: What information does the CUSTOMER file maintain?.................2-13
  58.  2-14: What must you do if you want to add another record?...............2-15
  59.  2-15: Does the delete in the mainenance program remove the record.......2-16
  60.  2-16: Why does pressing D again recalls the record?.....................2-17
  61.  2-17: What if you want to edit another record?..........................2-18
  62.  2-18: What does the Pg Dn key do?.......................................2-19
  63.  2-19: Which record does the edit command work on?.......................2-20
  64.  2-20: Why is the record number not sequential?..........................2-21
  65.  2-21: What will happen if you are at the bottom of a file?..............2-22
  66.  2-22: Which key would you select if you want to order the file by zip?..2-23
  67.  2-23: What if you want to index the file by company?....................2-24
  68.  2-24: What will the next record be?.....................................2-25
  69.  2-25: What choice do you select to return to the menu?..................2-26
  70.  2-26: Can you list only a certain range of customers?...................2-27
  71.  2-27: Can you list the entire file?.....................................2-28
  72. .PAè.PN 1
  73. .FO                                2-#
  74.  
  75. 1. THE CUSTOMER INFORMATION SYSTEM
  76. This section documents the customer information system.
  77.  
  78.  
  79. .HE                                       CUSTOMER INFORMATION SYSTEM
  80.  
  81. Customer Information 
  82. 1.1. OPERATING SYSTEM           
  83.  1.1.1. STARTING UP
  84.   Loading up dbase.
  85.  
  86.  SCREEN 1-1: STARTING UP
  87. /---------------------------------------------------------------------------\
  88.  
  89. A>
  90.  
  91. \---------------------------------------------------------------------------/
  92.  
  93.  
  94. Look at the screen, and find the "A>".
  95.  
  96. To me, it shows that the computer (defaults and/or) expects me to
  97. inser⌠ disδ ▒ oµ thσ Dbasσ II╔ plu≤ prograφ iε drivσ ┴ anΣ áthσ ì
  98. Smith'≤ Bikework≤ prograφ diskettσ iε drivσ B.
  99.  
  100. Next¼á ╔á wan⌠ t∩ typσ dbasσ anΣ pres≤ return¼á becausσ ╔ wan⌠ t∩ ì
  101. loaΣ dbase.
  102.  
  103.  
  104.  
  105. INSER╘║ Disδ ▒ oµ thσ dBAS┼ II╔ PLU╙ prograφ iε drivσ A
  106.  
  107. INSER╘║ SmitΦ's Bikework≤ prograφ diskettσ iε drivσ B
  108.  
  109. TYPE:  DBASE
  110.  
  111. PRESS:  [<-']  Enter/Return key
  112.  
  113. AND THE SYSTEM WILL:  Load up dbase.
  114.  
  115.  
  116. Q&A 1-1: Why do you want to type DBASE at A>?
  117.  
  118. .PAè SCREEN 1-2: dBASE III PLUS
  119. /--------------------------------------------------------------------------\
  120. ┌─────────────────────────────────────────────────────────────────────────────┐
  121. │                 dBASE III PLUS  version 1.0  IBM/MSDOS DEMO                 │
  122. │      Copyright (c) Ashton-Tate 1984, 1985, 1986.  All Rights Reserved.      │
  123. │              dBASE, dBASE III, dBASE III PLUS, and Ashton-Tate              │
  124. │                        are trademarks of Ashton-Tate                        │
  125. │                                                                             │
  126. │                                                                             │
  127. │       You may use the dBASE III PLUS software and  printed materials in     │
  128. │       the dBASE III PLUS software package under the terms  of the dBASE     │
  129. │       III  PLUS  Software  License Agreement.   In summary, Ashton-Tate     │
  130. │       grants you a paid-up,  non-transferable,  personal license to use     │
  131. │       dBASE III PLUS on one  microcomputer or workstation.   You do not     │
  132. │       become the owner of  the package,  nor do  you have  the right to     │
  133. │       copy or alter the software or printed materials.  You are legally     │
  134. │       accountable  for any violation of  the  License  Agreement  or of     │
  135. │       copyright, trademark, or trade secret laws.                           │
  136. └─────────────────────────────────────────────────────────────────────────────┘
  137.  
  138.                            Press the F1 key for HELP.
  139.        Insert Sampler Disk 2 and press ENTER, or press Ctrl-C to abort.
  140. \--------------------------------------------------------------------------/
  141.  
  142.  
  143. Looδ a⌠ thσ screen¼ anΣ finΣ thσ messagσ belo≈ thσ copyrigh⌠ warning.
  144.  
  145. To me, it shows that the computer (defaults and/or) expects me to
  146. insert the second disk and press return.
  147.  
  148. Next¼ ╔ wan⌠ t∩ inser⌠ thσ seconΣ Dbasσ II╔ plu≤ disδ anΣ pres≤ return¼ ì
  149. becausσ ╔ wan⌠ t∩ continuσ loadinτ dbase.
  150.  
  151.  
  152.  
  153. INSERT║  Disδ ▓ oµ thσ dBAS┼ II╔ PLU╙ prograφ iε drivσ A
  154.  
  155. PRESS:  [<-']  Enter/Return key
  156.  
  157. AND THE SYSTEM WILL:  Continue loading dbasσ anΣ displa∙ thσ dbasσ prompt.
  158.  
  159.  
  160.  
  161.  
  162.  
  163. Q&A 1-2: Why must a second disk be inserted?
  164.  
  165.  
  166. .paè
  167.  SCREEN 1-3: dBASE III PLUS
  168. /--------------------------------------------------------------------------\
  169. ZDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD?
  170. │                 dBASE III PLUS  version 1.0  IBM/MSDOS DEMO                 │
  171. │      Copyright (c) Ashton-Tate 1984, 1985, 1986.  All Rights Reserved.      │
  172. │              dBASE, dBASE III, dBASE III PLUS, and Ashton-Tate              │
  173. │                        are trademarks of Ashton-Tate                        │
  174. │                                                                             │
  175. │                                                                             │
  176. │       You may use the dBASE III PLUS software and  printed materials in     │
  177. │       the dBASE III PLUS software package under the terms  of the dBASE     │
  178. │       III  PLUS  Software  License Agreement.   In summary, Ashton-Tate     │
  179. │       grants you a paid-up,  non-transferable,  personal license to use     │
  180. │       dBASE III PLUS on one  microcomputer or workstation.   You do not     │
  181. │       become the owner of  the package,  nor do  you have  the right to     │
  182. │       copy or alter the software or printed materials.  You are legally     │
  183. │       accountable  for any violation of  the  License  Agreement  or of     │
  184. │       copyright, trademark, or trade secret laws.                           │
  185. └─────────────────────────────────────────────────────────────────────────────┘
  186.  
  187.                            Press the F1 key for HELP.
  188.        Insert Sampler Disk 2 and press ENTER, or press Ctrl-C to abort.
  189. (DEMO) .
  190. \--------------------------------------------------------------------------/
  191.  
  192.  
  193.  
  194. Look at the screen, and find the "(DEMO) .ó prompt.
  195.  
  196. To me, it shows that the computer (defaults and/or) expects me to
  197. type a dbase command.
  198.  
  199. Next¼á ╔ wan⌠ t∩ typσ D╧ SYSMEN╒ anΣ pres≤ return¼ becausσ ╔ wan⌠ ì
  200. to display thσ firs⌠ men⌡ iε thσ Smith'≤ Bikework≤ system.
  201.  
  202.  
  203. TYPE:  DO SYSMENU
  204.  
  205. PRESS:  [<-']  Enter/Return key
  206.  
  207. AND THE SYSTEM WILL:  Execute thσ SYSMENU program.
  208.  
  209.  
  210.  
  211. Q&A 1-3: Why must you type DO SYSMENU?
  212.  
  213.  
  214.  
  215. Comment║  Iµ yo⌡ usσ ß ful∞ blowε versioε oµ Dbasσ II╔ plu≤ yo⌡ wil∞ no⌠ ì
  216. seσ thσ worΣ DEM╧ iε fron⌠ oµ thσ do⌠ prompt.
  217. .paè 1.2. SYSMENU
  218. Thσ systeφ men⌡ control≤ entr∙ int∩ thσ Smith'≤ Bikework≤ subsystems.
  219.  
  220.  SCREEN 1-4: Activity Menu
  221. /--------------------------------------------------------------------------\
  222.                        SMITH'S BIKEWORKS INFORMATION SYSTEM
  223.  
  224.                                >> Activity Menu <<
  225.  
  226.                     A. CUSTOMER INFORMATION System
  227.                     B. HUMAN RESOURCES MANAGEMENT System
  228.                     C. ACCOUNTING System
  229.                     D. INVENTORY MANAGEMENT System
  230.                     E. PRODUCTION PLANNING System
  231.                     F. EXIT From Bikeworks' Information System
  232.  
  233.                        Press Letter Matching Desired Option
  234. \--------------------------------------------------------------------------/
  235.  
  236.  
  237. Look at the screen, and find the "Activity Menu".
  238.  
  239. To me, it shows that the computer (defaults and/or) expects me to
  240. enter a choice between A and F.
  241.  
  242. Next¼ ╔ wan⌠ t∩ typσ A¼ becausσ ╔ wan⌠ t∩ loaΣ thσ custome≥ informatioε ì
  243. system.
  244.  
  245.  
  246.  
  247. TYPE:  A
  248.  
  249. AND THE SYSTEM WILL:  Activatσ the Customer Information System.
  250.  
  251.  
  252.  
  253.  
  254. Q&A 1-4: Ho≈ d∩ yo⌡ loaΣ thσ Custome≥ Informatioε System?
  255.  
  256.  
  257.  
  258.  
  259.  
  260. Comment║ Thσ Activit∙ Men⌡ control≤ entr∙ int∩ thσ Smith'≤ Bikework≤ ì
  261. subsystems« I⌠ i≤ maintaineΣ a≤ par⌠ oµ thσ Custome≥ Informatioε System.
  262.  
  263.  
  264. .pAè 1.3. THE CUSTOMER INFORMATION MENU
  265.   This menu displays all the options for the customer information system.
  266.  
  267.  SCREEN 1-5: Customer Information System
  268. /--------------------------------------------------------------------------\
  269.                        SMITH'S BIKEWORKS INFORMATION SYSTEM
  270.  
  271.                          >> Customer Information System <<
  272.  
  273.                     A. Customer File MAINTENANCE
  274.                     B. Print CUSTOMER REPORT
  275.                     C. Print MAILING LABELS
  276.                     D. Generate FORM LETTER File
  277.                     E. CUSTOMER File CLEAN UP
  278.                     F. Move PURCHASE AMOUNTS Back a Year
  279.                     G. Return to SYSTEM MENU
  280.  
  281.                        Press Letter Matching Desired Option
  282. \--------------------------------------------------------------------------/
  283.  
  284.  
  285. Looδ a⌠ thσ screen¼ anΣ finΣ thσ curso≥ afte≥ thσ worΣ "Option".
  286.  
  287. To me, it shows that the computer (defaults and/or) expects me to
  288. enter a choice from A to G.
  289.  
  290. Next¼á ╔ wan⌠ t∩ typσ A¼á becausσ ╔ wan⌠ t∩ g∩ int∩ custome≥ filσ ì
  291. MAINTENANCE.
  292.  
  293.  
  294. TYPE:  A
  295.  
  296. AN─ TH┼ SYSTE═ WILL║  LoaΣ thσ maintenancσ prograφ whicΦ i≤ nameΣ ì
  297. CUSTMNT.PRG.
  298.  
  299.  
  300.  
  301.  
  302. Q&A 1-5: What does the customer file maintenance do?
  303.  
  304.  
  305.  
  306.  
  307. Comment║ Custome≥ Filσ Maintenancσ allow≤ thσ use≥ t∩ add¼ change¼ o≥ ì
  308. deletσ record≤ iε thσ CUSTOME╥ file.
  309.  
  310. Thσ CUSTOME╥ filσ keep≤ tracδ oµ customers¼ thei≥ location¼ anΣ thσ exten⌠ ì
  311. anΣ naturσ oµ thei≥ purchasinτ activity.
  312. .paè1.3.1. THE CUSTOMER FILE MAINTENANCE
  313. Thi≤ optioε allow≤ thσ use≥ t∩ add¼ change¼ o≥ deletσ record≤ iε thσì
  314. CUSTOME╥ file.
  315.  
  316.  
  317.  SCREEN 1-6: Customer Information System File Maintenance
  318. /--------------------------------------------------------------------------\
  319.                       SMITH'S BIKEWORKS INFORMATION SYSTEM
  320.  
  321.                >> Customer Information System File Maintenance <<
  322.                  Today's Date:03/03/87     Record          6 of        7
  323.  
  324.  Name -- Last  FARMER                 First  BEN               Initial  Y
  325.  Title    FIELD REPRESENTATIVE          Company  ROCHE BIKE WORKS
  326.  Street   4444 5TH STREET           City  NOTHINGHAM      State  MA  Zip  33334
  327.  Purchase Codes -- 1  99999   2  88888   3  77777
  328.  Last Buy  01/01/85  Value This Year       0.00  Value Last Year       0.00
  329.  Last Updated : 05/19/86
  330. -------------------------------------------------------------------------------
  331.   <F>ind Record  <A>dd Record   <D>elete/Recall  <E>dit Record   Current Active
  332.   <P>rev Record  <N>ext Record  <M>enu (return)  <K>ey Select    Key: NAME
  333.                     *** NEXT ACTION TO PERFORM
  334. \--------------------------------------------------------------------------/
  335.  
  336.  
  337. Looδ a⌠ thσ screen¼ anΣ finΣ thσ "submen⌡ oµ option≤ a⌠ thσ bottoφ oµ thσ ì
  338. screen".
  339.  
  340. To me, it shows that the computer (defaults and/or) expects me to
  341. enter  a command.
  342.  
  343. Next¼á ╔á wan⌠ t∩ typσ F¼á becausσ ╔ wan⌠ t∩ <F>inΣ ß recorΣ iε thσ ì
  344. CUSTOMER file.
  345.  
  346.  
  347. TYPE:  F
  348.  
  349. AN─ TH┼ SYSTE═ WILL║  Displa∙ thσ finΣ screeε witΦ aε entr∙ fielΣ ì
  350. containinτ thσ ke∙ valuσ oµ thσ curren⌠ record.
  351.  
  352.  
  353.  
  354. Q&A 1-6: Wh∙ i≤ thσ ke∙ valuσ oµ tΦσ curren⌠ recorΣ displayeΣ iε thσ
  355.          entr∙ area?
  356.  
  357.  
  358.  
  359.  
  360.  
  361. Comment║ Thσ submen⌡ oµ option≤ a⌠ thσ bottoφ oµ thσ maintenancσ screeε ì
  362. control≤ operatioε oµ CUSTMNT.PRG« Aε optioε i≤ requesteΣ b∙ pressinτ thσ ì
  363. lette≥ ke∙ associateΣ witΦ that option.
  364.  
  365. .paè
  366.  SCREEN 1-7: Customer Information System File Maintenance
  367. /--------------------------------------------------------------------------\
  368.                       SMITH'S BIKEWORKS INFORMATION SYSTEM
  369.  
  370.                >> Customer Information System File Maintenance <<
  371.                  Today's Date:03/03/87     Record          6 of        7
  372.  
  373.  Name -- Last  FARMER                 First  BEN               Initial  Y
  374.  Title    FIELD REPRESENTATIVE          Company  ROCHE BIKE WORKS
  375.  Street   4444 5TH STREET           City  NOTHINGHAM      State  MA  Zip  33334
  376.  Purchase Codes -- 1  99999   2  88888   3  77777
  377.  Last Buy  01/01/85  Value This Year       0.00  Value Last Year       0.00
  378.  Last Updated : 05/19/86
  379. -------------------------------------------------------------------------------
  380.  ENTER SEARCH VALUE. VALUE NOW SHOWN IS FROM DISPLAYED RECORD. PRESS
  381.  CTRL-Y TO CLEAR  FARMER,BEN
  382. \--------------------------------------------------------------------------/
  383.  
  384.  
  385. Looδá a⌠ thσ screen¼á anΣ finΣ thσ blinking curso≥ a⌠ thσ bottoφá oµá thσ ì
  386. screen.
  387.  
  388. To me, it shows that the computer (defaults and/or) expects me to
  389. press Ctrl-Y to clear the reverse video area.
  390.  
  391. Next¼ ╔ wan⌠ t∩ pres≤ Ctr∞ Y¼ becausσ ╔ wan⌠ t∩ clea≥ thσ reversσ vide∩ ì
  392. area.
  393.  
  394.  
  395. HOLD DOWN:  [Ctrl]
  396. AND PRESS: Y
  397.  
  398. AND THE SYSTEM WILL:  Clear the entr∙ area.
  399.  
  400.  
  401.  
  402. Q&A 1-7: Why pres≤ Ctrl-Y?
  403.  
  404.  
  405.  
  406. Comment║  Reversσ vide∩ areß mean≤ aε areß oε thσ screeε tha⌠ ha≤ beeε ì
  407. inverteΣ fo≥ easie≥ visibility.
  408. .paè
  409.  SCREEN 1-8: Customer Information System File Maintenance
  410. /--------------------------------------------------------------------------\
  411.                       SMITH'S BIKEWORKS INFORMATION SYSTEM
  412.  
  413.                >> Customer Information System File Maintenance <<
  414.                  Today's Date:03/03/87     Record          6 of        7
  415.  
  416.  Name -- Last  FARMER                 First  BEN               Initial  Y
  417.  Title    FIELD REPRESENTATIVE          Company  ROCHE BIKE WORKS
  418.  Street   4444 5TH STREET           City  NOTHINGHAM      State  MA  Zip  33334
  419.  Purchase Codes -- 1  99999   2  88888   3  77777
  420.  Last Buy  01/01/85  Value This Year       0.00  Value Last Year       0.00
  421.  Last Updated : 05/19/86
  422. -------------------------------------------------------------------------------
  423.  ENTER SEARCH VALUE. VALUE NOW SHOWN IS FROM DISPLAYED RECORD. PRESS
  424.  CTRL-Y TO CLEAR
  425. \--------------------------------------------------------------------------/
  426.  
  427.  
  428. Look at the screen, and find the curso≥ iε thσ highlighteΣ entr∙ area.
  429.  
  430. To me, it shows that the computer (defaults and/or) expects me to
  431. enter a search value.
  432.  
  433. Next¼ ╔ wan⌠ t∩ typσ ß las⌠ namσ anΣ pres≤ return¼ becausσ ╔ wan⌠ ì
  434. t∩ looδ fo≥ ß custome≥ witΦ tha⌠ las⌠ name.
  435.  
  436.  
  437. TYPE:  MUSKAT      [Mus⌠ bσ typeΣ iε uppercasσ letters.]
  438. PRESS:  [<-']  Enter/Return key
  439.  
  440. AND THE SYSTEM WILL:  Search for a customer witΦ tha⌠ last name.
  441.  
  442.  
  443.  
  444.  
  445. Q&A 1-8: How does the system search for the customer requested?
  446.  
  447.  
  448.  
  449.  
  450.  
  451. Comment║ AlthougΦ LAS╘ NAME,FIRS╘ NAM┼ i≤ displayed¼ onl∙ thσ LAS╘ NAM┼  ì
  452. mus⌠ bσ entereΣ fo≥ thσ search.
  453.  
  454. Thσ namσ mus⌠ bσ entereΣ exactl∙ a≤ i⌠ appear≤ iε thσ file« Attentioε       ì
  455. mus⌠ bσ paiΣ t∩ lowe≥ anΣ uppe≥ case.
  456.  
  457. .paè
  458.  SCREEN 1-9: Customer Information System File Maintenance
  459. /--------------------------------------------------------------------------\
  460.                       SMITH'S BIKEWORKS INFORMATION SYSTEM
  461.  
  462.                >> Customer Information System File Maintenance <<
  463.                  Today's Date:03/03/87     Record          6 of        7
  464.  
  465.  Namσáááá -- Las⌠áááá  MUSKA╘áááá                 Firs⌠áááá  ALA╬ Initia∞  N
  466.  Title    JANITOR                       Company  UAS    
  467.  Stree⌠   750│ MAI╬ AP╘ ┴      Cit∙  CLEVELAN─  State  SC         zip    45555
  468.  Purchase Codes -- 1          2          3       
  469.  Last Buy  01/01/85  Value This Year       0.00  Value Last Year       0.00
  470.  Last Updated : 01/31/85
  471. -------------------------------------------------------------------------------
  472.   <F>ind Record  <A>dd Record   <D>elete/Recall  <E>dit Record   Current Active
  473.   <P>rev Record  <N>ext Record  <M>enu (return)  <K>ey Select    Key: NAME
  474.                     *** NEXT ACTION TO PERFORM
  475. \--------------------------------------------------------------------------/
  476.  
  477.  
  478. Look at the screen, and find the new record of customer "MUSKAT".
  479.  
  480. To me, it shows that the computer (defaults and/or) expects me to
  481. enter the next command.
  482.  
  483. Next, I want to type A, because I want to <A>dd a record. 
  484.  
  485.  
  486. TYPE:  A
  487.  
  488. AN─ TH┼ SYSTE═ WILL║  Displa∙ ß blanδ recorΣ anΣ allo≈ yo⌡ t∩ ente≥ thσ ì
  489. fielΣ values.
  490.  
  491.  
  492.  
  493. Q&A 1-9: What Dbasσ commanΣ allow≤ ß ne≈ recorΣ t∩ bσ addeΣ t∩ thσ database?
  494.  
  495.  
  496.  
  497.  
  498. Comment║ Placσ thσ datß fo≥ thσ ne≈ recorΣ a⌠ thσ curso≥ positioε startinτ ì
  499. a⌠ thσ to≡ oµ thσ screen« Movσ amonτ field≤ usinτ thσ curso≥ contro∞ keys« ì
  500. Pres≤ RETUR╬ t∩ advancσ t∩ thσ nex⌠ field.
  501.  
  502. D∩ no⌠ pres≤ RETUR╬ afte≥ aε entr∙ tha⌠ fill≤ thσ entirσ field.
  503. .paè
  504.  SCREEN 1-10: Customer Information System File Maintenance
  505. /--------------------------------------------------------------------------\
  506.                       SMITH'S BIKEWORKS INFORMATION SYSTEM
  507.  
  508.                >> Customer Information System File Maintenance <<
  509.                  Today's Date:03/03/87     Record          8 of        8
  510.  
  511.  Name -- Last                         First                    Initial
  512.  Title                                  Company
  513.  Street                             City                  State      Zip
  514.  Purchase Codes -- 1          2          3
  515.  Last Buy    /  /    Value This Year        .    Value Last Year        .
  516.  Last Updated :   /  /
  517.       *** PRESS 'C' TO CONTINUE ADDING NEW RECS, ANYTHING ELSE TO QUIT
  518. -------------------------------------------------------------------------------
  519.           Enter data at cursor position. Move among fields with
  520.           cursor control keys. Press ENTER to move to next field.
  521.           Press ENTER alone to leave field unchanged.
  522. \--------------------------------------------------------------------------/
  523.  
  524.  
  525. Looδ a⌠ thσ screen¼ anΣ finΣ thσ "curso≥ nex⌠ t∩ thσ iteφ "Namσ --ì
  526. Last".
  527.  
  528. To me, it shows that the computer (defaults and/or) expects me to
  529. enter the new customer's last name.
  530.  
  531. Next¼ ╔ wan⌠ t∩ ente≥ thσ las⌠ namσ oµ thσ ne≈ custome≥ anΣ pres≤ ì
  532. return¼ becausσ ╔ wan⌠ t∩ adΣ ß ne≈ customer.
  533.  
  534.  
  535. TYPE:  ALBERTI
  536. PRESS:    [<-']  Enter/Return key
  537.  
  538. AN─ TH┼ SYSTE═ WILL║  Accep⌠ thσ entr∙ anΣ movσ oε t∩ thσ nex⌠ item.
  539.  
  540.  
  541.  
  542.  
  543. Q&A 1-10: Wha⌠ command≤ arσ useΣ t∩ storσ thσ ne≈ datß typeΣ oε thσ 
  544. screeε int∩ thσ recorΣ fields?
  545.  
  546. .paèContinuσ enterinτ thσ record:
  547.  
  548. TYPE║  FRAN
  549. PRESS║  [<-'▌  Enter/Returε key
  550.  
  551. TYPE║  A
  552.  
  553. TYP┼║  MANAGER
  554. PRESS║  [<-'▌  Enter/Returε key
  555.  
  556.  
  557. TYPE:  ALHAZME EAST
  558. PRESS:  [<-']  Enter/Return key
  559.  
  560.  
  561. TYPE:  8065 S.W 107 AVENUE 
  562. PRESS:  [<-']  Enter/Return key
  563.  
  564.  
  565. TYPE:  MIAMI
  566. PRESS:  [<-']  Enter/Return key
  567.  
  568.  
  569. TYPE:  FL
  570.  
  571.  
  572. TYPE:  33173
  573.  
  574.  
  575. TYPE:  A
  576. PRESS:  [<-']  Enter/Return key
  577.  
  578.  
  579. TYPE:  B
  580. PRESS:  [<-']  Enter/Return key
  581.  
  582.  
  583. TYPE:  C
  584. PRESS:  [<-']  Enter/Return key
  585.  
  586.  
  587. TYPE:  011587
  588.  
  589.  
  590. TYPE:  200000
  591. PRESS:  [<-']  Enter/Return key
  592.  
  593.  
  594. TYPE:  500000
  595. PRESS:  [<-']  Enter/Return key
  596. .paè
  597.  SCREEN 1-11: Customer Information System File Maintenance
  598. /--------------------------------------------------------------------------\
  599.                       SMITH'S BIKEWORKS INFORMATION SYSTEM
  600.  
  601.                >> Customer Information System File Maintenance <<
  602.                  Today's Date:02/03/87     Record          7 of        7
  603.  
  604.  Name -- Last  ALBERTI                First  FRAN              Initial  A
  605.  Title     MANAGER                      Company  ALHAZME EAST
  606.  Street    8065 S.W 107 AVENUE      City   MIAMI          State  FL  Zip  33173
  607.  Purchase Codes -- 1  A       2  B       3  C
  608.  Last Buy  01/15/87  Value This Year  200000.00  Value Last Year  500000.00
  609.  Last Updated :   /  /
  610.       *** PRESS 'C' TO CONTINUE ADDING NEW RECS, ANYTHING ELSE TO QUIT
  611. -------------------------------------------------------------------------------
  612.           Enter data at cursor position. Move among fields with
  613.           cursor control keys. Press ENTER to move to next field.
  614.           Press ENTER alone to leave field unchanged.
  615. \--------------------------------------------------------------------------/
  616.  
  617.  
  618. Look at the screen, and find the "messagσ a⌠ thσ bottoφ oµ thσ screen".
  619.  
  620. To me, it shows that the computer (defaults and/or) expects me to
  621. press any key or type C to add another record.
  622.  
  623. Next¼á ╔á wan⌠ t∩ press an∙ key¼á becausσ ╔ d∩ no⌠ wisΦ t∩ adΣ an∙ ì
  624. more records.
  625.  
  626.  
  627. PRESS:  [<-']  Enter/Return key
  628.  
  629. AN─ TH┼ SYSTE═ WILL║  Updatσ thσ CUSTOME╥ filσ anΣ brinτ bacδ thσ ì
  630. maintenance submenu.
  631.  
  632.  
  633.  
  634.  
  635. Q&A 1-11: What must you do if you want to add another record?
  636.  
  637.  
  638.  
  639. .paè SCREEN 1-12: Customer Information System File Maintenance
  640. /--------------------------------------------------------------------------\
  641.                       SMITH'S BIKEWORKS INFORMATION SYSTEM
  642.  
  643.                >> Customer Information System File Maintenance <<
  644.                  Today's Date:02/03/87     Record          7 of        7
  645.  
  646.  Name -- Last  ALBERTI                First  FRAN              Initial  A
  647.  Title     MANAGER                      Company  ALHAZME EAST
  648.  Street    8065 S.W 107 AVENUE      City   MIAMI          State  FL  Zip  33173
  649.  Purchase Codes -- 1  A       2  B       3  C
  650.  Last Buy  01/15/87  Value This Year  200000.00  Value Last Year  500000.00
  651.  Last Updated :   /  /
  652. -------------------------------------------------------------------------------
  653.   <F>ind Record  <A>dd Record   <D>elete/Recall  <E>dit Record   Current Active
  654.   <P>rev Record  <N>ext Record  <M>enu (return)  <K>ey Select    Key: NAME
  655.                     *** NEXT ACTION TO PERFORM
  656. \--------------------------------------------------------------------------/
  657.  
  658.  
  659.  
  660. Look at the screen, and find the "curso≥ afte≥ thσ worΣ PERFORM".
  661.  
  662. To me, it shows that the computer (defaults and/or) expects me to
  663. enter the next command.
  664.  
  665. Next¼ ╔ wan⌠ t∩ typσ D¼ becausσ ╔ wan⌠ t∩ flaτ thσ currentl∙ displayeΣ ì
  666. recorΣ fo≥ deletion.
  667.  
  668.  
  669. TYPE:  D
  670.  
  671. AN─ TH┼ SYSTE═ WILL║  Flaτ thσ curren⌠ (displayeΣ) record fo≥ deletioε anΣ ì
  672. displa∙ thσ worΣ ó ¬ DELETE─ ¬ ó iε thσ uppe≥ lef⌠ hanΣ corne≥ oµ thσ screeε.
  673.  
  674.  
  675.  
  676. Q&A 1-12: Does the commanΣ DELET┼ removσ ß record permanently?
  677.  
  678.  
  679.  
  680.  
  681. Comment║ Iε orde≥ t∩ permanentl∙ removσ ß recorΣ froφ thσ CUSTOME╥ file¼ ì
  682. thσ CUSTOME╥ Filσ CLEA╬ U≡ optioε mus⌠ bσ selecteΣ froφ thσ Custome≥ ì
  683. Informatioε Systeφ menu« 
  684. .paè
  685.  SCREEN 1-13: Customer Information System File Maintenance
  686. /--------------------------------------------------------------------------\
  687.                       SMITH'S BIKEWORKS INFORMATION SYSTEM                    
  688.                                                                               
  689.                >> Customer Information System File Maintenance <<             
  690.  * DELETED *     Today's Date:02/06/87     Record          6 of        7
  691.                                                                               
  692.  Name -- Last  ALBERTI                First  FRAN              Initial  A
  693.  Title     MANAGER                      Company  ALHAZME EAST
  694.  Street    8065 S.W 107 AVENUE      City   MIAMI          State  FL  Zip  33173
  695.  Purchase Codes -- 1  A       2  B       3  C
  696.  Last Buy  01/15/87  Value This Year  200000.00  Value Last Year  500000.00
  697.  Last Updated :   »  /
  698. --------------------------------------------------------------------------------
  699.   <F>ind Record  <A>dd Record   <D>elete/Recall  <E>dit Record   Current Active
  700.   <P>rev Record  <N>ext Record  <M>enu (return)  <K>ey Select    Key: NAME
  701.                     *** NEXT ACTION TO PERFORM
  702. \--------------------------------------------------------------------------/
  703.  
  704.  
  705. Look at the screen, and find the "curso≥ afte≥ thσ worΣ PERFORM".
  706.  
  707. To me, it shows that the computer (defaults and/or) expects me to
  708. enter the next command.
  709.  
  710. Next¼ ╔ wan⌠ t∩ typσ ─ again¼ becausσ ╔ wan⌠ t∩ recal∞ thσ deleteΣ record.
  711.  
  712.  
  713. TYPE:  D
  714.  
  715. AND THE SYSTEM WILL:  Remove the flag from the deleted record.
  716.  
  717.  
  718.  
  719.  
  720. Q&A 1-13: Why does pressing "D" again recall the record?
  721.  
  722. .paèì
  723.  
  724. .he                               Customer Programmer Doc
  725. .pn 1
  726. .fo                           P1-#
  727.  
  728.  
  729. NOTE║  THI╙ HA╙ BEE╬ A╬ EXAMPL┼ O╞ TH┼ USE╥ DOCUMENTATIO╬ AN─ TH┼   
  730.        SAMPLE PROGRAMMER DOCUMENTATION FOLLOWS.                                       CUSTOMER INFORMATION SYSTEM 
  731.                          
  732.                 CUSTOMER INFORMATION SYSTEMS
  733.  
  734. DESCRIPTION:
  735.      Thσá Custome≥á Informatioεá Subsysteφ i≤ tha⌠á par⌠á oµá thσ ì
  736. databasσá managemen⌠ proces≤ wherσ thσ custome≥ datß i≤ organizeΣ ì
  737. anΣá storeΣ fo≥ usσ witΦ othe≥ functions«á  Usuall∙ ß systeφá oµ ì
  738. use≥á friendl∙ softwarσ module≤ replace thσ neeΣ fo≥á specializeΣ ì
  739. knowledgσ oµ ß certaiε databasσ package«  Thereforσ operator≤ caε ì
  740. handlσá thσá sybsysteφ withou⌠ havinτ  t∩ kno≈ mucΦá abou⌠á dBAS┼ ì
  741. itself.
  742.      Thσ Custome≥ Informatioε module≤ arσ useΣ t∩ updatσ existinτ ì
  743. databasσá file≤ anΣ retrievσ informatioε iε thσ forφ oµá reports«  ì
  744. Thi≤ entail≤ adding¼á changing¼ anΣ deletinτ datß iε thσ databasσ ì
  745. t∩á matcΦ curren⌠ situations¼á anΣ providinτ report≤ fo≥ feedbacδ ì
  746. a≤ ß too∞ iε thσ decisioε makinτ process.
  747.  
  748. INPUTS:
  749.      Smith'≤á Bikework≤á Informatioεá Systeφ i≤ aε examplσá oµá ß ì
  750. norma∞ databasσ system«á  Thσ Custome≥ Informatioε sectioε allow≤ ì
  751. thσá operato≥á t∩á updatσ record≤á anΣá prin⌠á custome≥á reports¼ ì
  752. mailinτ labels¼á anΣ forφ letters«á  Addi⌠iona∞ module≤ ma∙ als∩ ì
  753. bσá addeΣá t∩ enhancσ thσ systeφ t∩ mee⌠ thσ user'≤á needs«á  Thσ ì
  754. actua∞ custome≥ filσ maintenancσ allow≤ thσ use≥ t∩ havσ thσ samσ ì
  755. typσá oµá acces≤ t∩ thσ file≤ a≤ ß persoε usinτ thσá softwarσá iε ì
  756. "immediateóá mode«á  Thσá input≤á herσ arσ simpl∙á thσá type≤á oµ ì
  757. activitie≤ t∩ perform¼ includinτ processinτ custome≥ transaction≤ ì
  758. anΣ allowinτ thσ operato≥ t∩ recal∞ anΣ updatσ specifiπá records«  ì
  759. Thσá prograφá i≤ designeΣ s∩ a≤ t∩ providσ thσ maximuφ amoun⌠á oµ ì
  760. datßá oεá onσá screen¼á anΣá t∩ organizσ i⌠ s∩á tha⌠á i⌠á i≤á no⌠ ì
  761. difficul⌠ t∩ read«  Othe≥ input≤ arσ basicall∙ fille≥ informatioε ì
  762. tha⌠á i≤á no⌠á stored¼áá bu⌠á i≤á useΣá t∩á makσá printout≤á morσ ì
  763. understandablσáand efficient«á  Herσ thσ use≥ ma∙ bσ prompteΣá t∩ ì
  764. specif∙á ßá rangσá oµ file≤ fo≥ printinτ baseΣá oεá ßá particula≥ ì
  765. criterißá (sucΦ a≤ onl∙ thosσ name≤ les≤ thaε "E")¼á o≥ chosσ thσ ì
  766. preferreΣáá orderinτá oµá thσá datßá (eg«áá listeΣáá b∙áá compan∙ ì
  767. alphabetically).
  768.    
  769. PROCESSES:
  770.      Thσá processinτá tha⌠á occur≤ iεá thσá Custome≥á Informatioε ì
  771. Systeφá i≤ primaril∙ repor⌠ generatioε anΣ data filσá maintenance«  ì
  772. Thσá CI╙á i≤á ß stanΣ alonσ system«á  Tha⌠ is¼á i⌠á caεá functioε ì
  773. withou⌠á interfacinτ witΦ othe≥ systems«á  Thσ potentia∞á exists¼ ì
  774. however¼ t∩ accesss this database for more extended processing.
  775.      
  776.      Oncσá thσ datß fo≥ thσ Bikework≤ customer≤ ha≤ beeεá stored¼ ì
  777. i⌠á i≤á possiblσá t∩ combinσ thi≤á witΦá informatioεá froφá othe≥ ì
  778. module≤á t∩á ge⌠ ß morσ detaileΣ listing«á  Othe≥ subsystem≤á ma∙ ì
  779. wisΦá t∩ágain acces≤ t∩ thσ custome≥ file≤ kep⌠ iεá thσá custome≥ ìèinformatioεá systeφá eithe≥ t∩ insurσá integrity¼á o≥á t∩á updatσ ì
  780. fields.
  781.  
  782. OUTPUTS:
  783.      Thσá output≤ oµ thσ Custome≥ informatioε system¼á likσ most¼ ì
  784. consis⌠ oµ differen⌠ type≤ oµ reports«á  Custome≥ listing≤ caε bσ ì
  785. generateΣá alonτá witΦá mailinτá labelsáá anΣáá reports«áá  WitΦ ì
  786. additiona∞ software¼ i⌠ i≤ als∩ possiblσ t∩ producσ forφ letters¼ ì
  787. graph≤á anΣ charts«á  Thσ detai∞ oµ thσ outpu⌠ wil∞ depenΣ oε thσ ì
  788. programming«á  Thu≤á customizeΣ report≤ caε bσ programmeΣ iεá anΣ ì
  789. late≥á ruε b∙ aε operator«á  Operator≤ ma∙ havσ somσ inpu⌠ a≤á t∩ ì
  790. specifiπá detail≤ iε ß particula≥ report¼á bu⌠ canno⌠ orde≥ á ß ì
  791. ne≈ typσ oµ repor⌠ withou⌠ additiona∞ programming.
  792.    
  793.      Flexibilit∙á i≤ thσ ke∙ behinΣ thσ desigε oµá thσá database«  ì
  794. Constan⌠á modification≤ámust be madσ t∩ thσ systeφ jus⌠ a≤á the∙ ì
  795. mus⌠ bσ madσ t∩ record≤ a≤ thσ need≤ oµ thσ use≥ changes« ì
  796.  
  797. Thσ program≤ provideΣ iε thi≤ sectioε arσ ß stronτ beginninτ froφ ì
  798. wherσ t∩ begiε ß use≥ specifiπ databasσ system.
  799.  
  800. .paè
  801.                    CROSS REFERENCE FOR SYSTEM  sysmenu.prg
  802.  
  803.    _____________ 
  804.   |             |
  805.   |   SYSMENU   |    Diagram for procedure SYSMENU
  806.   |_____________|     in system SYSMENU.PRG
  807.          |
  808.          |
  809.          |------->--------.------->--------.------->--------.
  810.          |                |                |                |
  811.          |          ______|______    ______|______    ______|______ 
  812.          |         |             |  |             |  |             |
  813.          v         |   ACCOUNT   |  |     BOM     |  |  CUSTINFO   |
  814.          |         |_____________|  |_____________|  |_____________|
  815.          |
  816.          |
  817.          |------->--------.
  818.          |                |
  819.    ______|______    ______|______ 
  820.   |             |  |             |
  821.   |     HRM     |  |    INVEN    |
  822.   |_____________|  |_____________|
  823.  
  824.    
  825.  
  826.  
  827. .paè  
  828.    _____________ 
  829.   |             |
  830.   |   SYSMENU   |
  831.   |_____________|
  832.          |
  833.          |
  834.          |
  835.          |
  836.    ______v______ 
  837.   |             |
  838.   |  CUSTINFO   |    Diagram for procedure CUSTINFO
  839.   |_____________|     in system SYSMENU.PRG
  840.          |
  841.          |
  842.          |------->---.------->-------.-------->------.------->-----.
  843.          |           |               |               |             |
  844.  ________v_    ______|_____    ______|_____    ______|___    ______|_____
  845. |          |  |            |  |            |  |          |  |            |
  846. | CUSTMNT  |  |  CUSTREPT  |  |  PURCHUPD  |  |  LABELS  |  |  NAMESOUT  |
  847. |__________|  |____________|  |____________|  |__________|  |____________|
  848.          |
  849.          |
  850.          |
  851.          |
  852.    ______v______ 
  853.   |             |
  854.   |   CREPACK   |
  855.   |_____________|
  856.  
  857.    
  858. .paè
  859.  
  860.                       PROGRAM DESCRIPTIONS
  861.  
  862.  
  863. Program:    SYSMENU.PRG         System Menu
  864.  
  865. Function:      Entry point for the entire system, displays menu of
  866.                all subsystems and transfers control based on
  867.                operator input.
  868.  
  869. Called by:     End-user from dBASE or DOS command level
  870.  
  871. Calls to:      ACCOUNT.PRG
  872.                BOM.PRG
  873.                CUSTINFO.PRG
  874.                HRM.PRG
  875.                INVEN.PRG
  876.  
  877.  
  878.  
  879. Program:    CUSTINFO.PRG        Customer Information Subsystem Menu
  880.  
  881. Function:      Entry point for Customer Information Subsystem, displays
  882.                menu for the subsystem and transfers control based on
  883.                operator input.
  884.  
  885. Called by:     SYSMENU.PRG
  886.  
  887. Calls to:      CUSTMNT.PRG
  888.                CUSTREPT.PRG
  889.                PURCHUPD.PRG
  890.                CREPACK.PRG
  891.                NAMESOUT.PRG
  892.                LABELS.PRG
  893.  
  894.  
  895. Program:    CUSTMNT.PRG         Customer File Maintenance Program
  896.  
  897. Function:      Maintains the customer information file (CUSTOMER.DBF). 
  898.                Available options are to add, edit, delete, recall, 
  899.                move to next record, move to previous record and find records.
  900.                                      
  901.  
  902. Called by:     CUSTINFO.PRG
  903.  
  904. Calls to:                 
  905.  
  906. .paè              MEMORY AND DATABASE VARIABLES
  907.  
  908. Variable           Database           Command
  909. Name               File               Files
  910. --------           -------            --------------------------
  911. ACTION                                CUSTMNT 
  912. BLANK                                 CUSTMNT 
  913. CITY               CUSTOMER           CUSTMNT NAMESOUT LABELS        
  914. COMPANY            CUSTOMER           CREPACK LABELS CUSTMNT           
  915. COUNT                                 CUSTMNT 
  916. DATAIN                                CUSTMNT 
  917. DIIXA                                 CUSTMNT 
  918. DIIXB                                 CUSTMNT 
  919. DIIXC                                 CUSTMNT 
  920. DUMMY                                 CUSTREPT PURCHUPD LABEL NAMESOUT CREPACK
  921. FILENAME                              CUSTMNT CUSTREPT LABEL NAMESOUT
  922. FIRST_NAME         CUSTOMER           CUSTMNT CREPACK LABELS NAMESOUT
  923. INDEX                                 CUSTREPT LABEL NAMESOUT
  924. INITIAL            CUSTOMER           CUSTMNT CUSTREPT LABEL NAMESOUT
  925. IXA                                   CUSTMNT 
  926. IXB                                   CUSTMNT 
  927. IXC                                   CUSTMNT 
  928. IXCHOICE                              CUSTMNT 
  929. IXCOUNT                               CUSTMNT 
  930. IXDEF                                 CUSTMNT 
  931. LAST_NAME          CUSTOMER           CUSTMNT CREPACK LABELS CUSTREPT
  932. LAST_PURCH         CUSTOMER           CUSTMNT         
  933. LEFTMARG                              CUSTINFO SYSMENU 
  934. LIVE_IX                               CUSTMNT 
  935. LYRS_VALUE         CUSTOMER           CUSTMNT PURCHUPD
  936. MTYPE_1            CUSTOMER           CUSTMNT
  937. MTYPE_2            CUSTOMER           CUSTMNT
  938. MTYPE_3            CUSTOMER           CUSTMNT
  939. NAMEEND                               CUSTREPT LABEL NAMESOUT
  940. NAMEST                                CUSTREPT LABEL NAMESOUT
  941. NOW                                   CUSTMNT 
  942. OPINPUT                               CUSTINFO SYSMENU 
  943. RECCNT                                CUSTMNT 
  944. RECNOW                                CUSTMNT LABEL
  945. REPORT                                CUSTREPT
  946. REQUEST                               CUSTMNT 
  947. SEARCH                                CUSTMNT 
  948. STATE              CUSTOMER           CUSTMNT LABELS NAMESOUT
  949. STREET             CUSTOMER           CUSTMNT LABELS NAMESOUT
  950. SV                                    CUSTMNT 
  951. TEMP                                  CUSTMNT 
  952. TEMP2                                 CUSTMNT 
  953. TITLE              CUSTOMER           CUSTMNT LABELS
  954.  
  955.  
  956.  
  957. .paè
  958.                   STRUCTURE AND DATA DEFINITION
  959.  
  960. Structure for database: customer.dbf    Customer Information file
  961. Contents:  This files contains specific information on each customer.
  962. Size of each record: 178
  963. Index files: NAME.NDX, COMPANY.NDX, ZIP.NDX
  964.        keys: LAST_NAME, COMPANY, ZIP
  965. File structure:
  966.  
  967.  
  968. Field  Field Name  Type       Width    Dec   Description
  969.     1  LAST_NAME   Character     20          Customer's last name
  970.     2  FIRST_NAME  Character     15          Customer's first name
  971.     3  INITIAL     Character      1          Customer's middle initial
  972.     4  TITLE       Character     20          Customer's job title
  973.     5  COMPANY     Character     25          Company's name
  974.     6  STREET      Character     25          Company's street address
  975.     7  CITY        Character     15          Company's city
  976.     8  STATE       Character      2          Company's state
  977.     9  ZIP         Character      5          Company's zip code
  978.    10  MTYPE_1     Character      5          Purchase code 1
  979.    11  MTYPE_2     Character      5          Purchase code 2
  980.    12  MTYPE_3     Character      5          Purchase code 3
  981.    13  LAST_PURCH  Date           8          Date of last purchase
  982.    14  YRS_VALUE   Numeric        9    2     Current year's purchase amount
  983.    15  LYRS_VALUE  Numeric        9    2     Last year's purchase amount
  984.    16  LAST_UPDT   Date           8          Date of last update
  985. ** Total                        178    
  986. .paè
  987.  
  988.                  DESCRIPTION OF MEMORY VARIABLES
  989.  
  990.  
  991. Variable   Command               
  992. Name       File     Type  Width  Dec  Description
  993. --------   -------  ----  -----  ---  -----------
  994. ACTION     CUSTMNT    C     1         User entry for action to perform
  995. BLANK      CUSTMNT    C    80         String of spaces to blank a line
  996. COUNT      CUSTMNT    N     1         Counter
  997. DATAIN     CUSTMNT    C     1         Flag to cause new data to be read 
  998. DIIXA      CUSTMNT    C    80         Index key: LAST_NAME, FIRST_NAME
  999. DIIXB      CUSTMNT    C    80         Index key: COMPANY
  1000. DIIXC      CUSTMNT    C    80         Index key: ZIP
  1001. DUMMY      CUSTREPT   C     1         User entry "M" to exit else begin
  1002.            PURCHUPD   C     1         User entry "M" to exit else begin
  1003.            LABEL      C     1         User entry "M" to exit else begin
  1004.            CREPACK    C     1         User entry "M" to exit else begin
  1005.            NAMESOUT   C     1         User entry "M" to exit else begin
  1006. FILENAME   CUSTMNT    C     8         Database file name: CUSTOMER
  1007.            CUSTREPT   C     8         Database file name: CUSTOMER
  1008.            LABEL      C     8         Database file name: CUSTOMER
  1009.            NAMESOUT   C     8         Database file name: CUSTOMER
  1010. INDEX      CUSTREPT   C     8         User specified index
  1011.            LABEL      C     8         User specified index
  1012.            NAMESOUT   C     8         User specified index
  1013. IXA        CUSTMNT    C    80         Index list: NAME,COMPANY,ZIP
  1014. IXB        CUSTMNT    C    80         Index list: COMPANY,NAME,ZIP
  1015. IXC        CUSTMNT    C    80         Index list: ZIP,NAME,COMPANY
  1016. IXCHOICE   CUSTMNT    C     1         User entry index choice
  1017. IXCOUNT    CUSTMNT    N     1         Number of indexes: 3
  1018. IXDEF      CUSTMNT    C    80         Macro defining index entries
  1019. LEFTMARG   CUSTINFO   N     2         Left margin
  1020.            SYSMENU    N     2         Left margin
  1021. LIVE_IX    CUSTMNT    C     3         Current index choice
  1022. NAMEEND    CUSTREPT   C    20         Ending LAST_NAME to include in report
  1023.            LABEL      C    20         Ending LAST_NAME to include in report
  1024.            NAMESOUT   C    20         Ending LAST_NAME to include in report
  1025. NAMEST     CUSTREPT   C    20         Beginning LAST_NAME to include in report
  1026.            LABEL      C    20         Beginning LAST_NAME to include in report
  1027.            NAMESOUT   C    20         Beginning LAST_NAMEto include in report
  1028. NOW        CUSTMNT    N     3         Current number of records
  1029. OPINPUT    CUSTINFO   C     1         User entry for menu selection
  1030.            SYSMENU    C     1         User entry for menu selection
  1031. RECCNT     CUSTMNT    N     3         Number of records in the file
  1032. RECNOW     CUSTMNT    N     3         Current record number
  1033.            LABEL      N     3         Current record number
  1034. REPORT     CUSTREPT   C     8         Report format to use: CUSTLIST
  1035. REQUEST    CUSTMNT    C     1         User entry for action to perform
  1036. SEARCH     CUSTMNT    C    80         Search value - no trailing blanks
  1037. SV         CUSTMNT    C    80         Search value 
  1038.  
  1039.  
  1040. .paè                        PROGRAM FLOW
  1041.  
  1042. - Module SYSMENU.PRG
  1043. DO WHILE (1=1)
  1044.    DO WHILE OPINPUT<"A".OR.OPINPUT>"F"
  1045.    ENDDO
  1046.    DO CASE
  1047.    CASE OPINPUT="A"
  1048.       DO CUSTINFO
  1049.    CASE OPINPUT="B"
  1050.       DO HRM
  1051.    CASE OPINPUT="C"
  1052.       DO ACCOUNT
  1053.    CASE OPINPUT="D"
  1054.       DO INVEN
  1055.    CASE OPINPUT="E"
  1056.       DO BOM
  1057.    CASE OPINPUT="F"
  1058.       RETURN
  1059.    OTHERWISE
  1060.       CANCEL
  1061.    ENDCASE
  1062. ENDDO
  1063.  
  1064.  
  1065. - Module CUSTINFO.PRG
  1066. DO WHILE (1=1)
  1067.    DO WHILE OPINPUT<"A".OR.OPINPUT>"G"
  1068.    ENDDO
  1069.    DO CASE
  1070.    CASE OPINPUT="A"
  1071.       DO CUSTMNT
  1072.    CASE OPINPUT="B"
  1073.       DO CUSTREPT
  1074.    CASE OPINPUT="C"
  1075.       DO LABELS
  1076.    CASE OPINPUT="D"
  1077.       DO NAMESOUT
  1078.    CASE OPINPUT="E"
  1079.       DO CREPACK
  1080.    CASE OPINPUT="F"
  1081.       DO PURCHUPD
  1082.    CASE OPINPUT="G"
  1083.       RETURN
  1084.    OTHERWISE
  1085.       CANCEL
  1086.    ENDCASE
  1087. ENDDO
  1088.  
  1089.  
  1090. NOTE║  FO╥ ┴ COP┘ O╞ TH┼ ENTIR┼ USE╥ AN─ PROGRAMME╥ DOCUMENTATIO╬ ì
  1091.        MANUAL PLEASE CONTACT PRENTICE HALL  1-800-526-0485
  1092.  
  1093. .PAè